home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / make / icmake-6.000 / icmake-6 / icmake / exec / fungpath.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-02-08  |  379 b   |  23 lines
  1. /*
  2. \funcref{fun\_g\_path}{void fun\_g\_path ()}
  3.     {}
  4.     {}
  5.     {newvar(), get\_path ()}
  6.     {fun\_g\_ext(), fun\_g\_base()}
  7.     {fungpath.c}
  8.     {
  9.  
  10.         The last pushed string is taken as a file name. The path is
  11.         returned.
  12.  
  13.     }
  14. */
  15.  
  16. #include "icm-exec.h"
  17.  
  18. void fun_g_path ()
  19. {
  20.     reg = newvar (e_str);
  21.     reg.vu.i->ls.str = get_path (stack [sp].vu.i->ls.str);
  22. }
  23.